home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / utilmus / hip223.lha / HippoPlayer / ARexx / HiP_copyfilereq.rexx < prev    next >
OS/2 REXX Batch file  |  1996-01-14  |  1KB  |  45 lines
  1. /* HippoPlayer - Copy file
  2. **
  3. ** This script parses the filename of the played module and then
  4. ** pops up an requester with which you can choose the destination
  5. ** for the module. The module will then be copied there.
  6. ** You can choose if the module should be deleted after copying
  7. ** or not.
  8. **
  9. ** Written by Marcel Doering [DonDoringo@GURU.rhein-main.de]
  10. */
  11.  
  12. options results
  13.  
  14. address 'HIPPOPLAYER'
  15.  
  16. get cnam
  17. CNAM = result
  18.  
  19. IF ~EXISTS(cnam) then do
  20. nf=rtezrequest('Couldn`t find 'cnam' !'||'0a'x||'Aborting...','Okay','HiP_copy.rexx',)
  21. exit
  22. end
  23.  
  24. get name
  25. NAME = result
  26.  
  27. ADDLIB('rexxreqtools.library',0,-30,0)
  28. dest=rtfilerequest(,NAME,'Select destination !',,'')
  29. if dest='' then do
  30. nd=rtezrequest('No destination selected, aborting !','Okay','HiP_copy.rexx',)
  31. exit
  32. end
  33.  
  34. say 'Copying file 'cnam' to 'dest' !'
  35.  
  36. ADDRESS COMMAND 'COPY "'cnam'" "'dest'"'
  37.  
  38. say 'Finished'
  39.  
  40. del=rtezrequest('Do you want to delete 'cnam' ?','Yes|No','HiP_copy.rexx','rtez_defaultresponse = 0',)
  41. if del=1 then
  42. address command 'delete 'cnam''
  43.  
  44. EXIT
  45.